DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


**F ILE**1D**RECALLSUB 
RRRRRRRR EEEEEEEEEE cccccccc AAAAAA LL LL SSSSSSSS UU UU 688888888 
RRRRRRRR EEEEEEEEEE ccccccce AAAAAA LL LL SSSSSSSS UU UU 88888688 
RR RR EE cc AA AA LL LL SS UU UU 8B BB 
RR RR EE cc AA AA LL LL SS UU UU 8B 8B 
RR RR EE cc AA AA LL LL SS UU UU 8B BB 
RR RR EE cc AA AA LL LL SS UU UU BB 
RRRRRRRR EEEEEEEE cc AA AA LL LL SSSSSS UU UU 88888688 
RRRRRRRR EEEEEEEE cc AA LL LL SSSSSS UU UU B888BBB8B 
RR RR EE cc AAAAAAAAAA LL LL SS UU UU 8B 
RR RR EE cc AAAAAAAAAA LL LL SS UU UU 6B BB 
RR RR EE cc AA LL LL SS UU UU BB BB cove 
RR RR EE cc AA AA LL LL SS UU UU BB BB eeee 
RR RR EEEEEEEEEE CCCCCCCC AA AA LLLLLLLLLL LLLLLLLLLL SSSSSSSS UUUUUUUUUU = BBBBBBBB cece 
RR RR EEEEEEEEEE CCCCCCCC «AA AA LLLLLLLLLE LLLLLLLLLL SSSSSSSS UUUUUUUUUU = BBBBBBBB eee 
LL III SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL Il SS 
LL I] SS 
LL II SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] $$ 
LLLLLLLLLL IIII1] SSSSSSSS 
LLLLLLLLLL 111] SSSSSSSS 
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MODULE recallsub (IDENT="Vv04-000' 
ADDRESSING_MODE (NONEXTERNAL=LONG RELATIVE, 
EXTERNAL=GENERALY) = 


BEGIN 


' 
APES SSSIS IIIT IIIT TESTI TT TTT r rrr ier iri i iii iii iit iiiiiiiiiitiit 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


® 

® 

+ 

® 

® 

4 ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
t MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
® 

® 

a 

® 

® 

® 

® 

® 

® 

* 

® 


} ER 
!t TRANSFERRED. 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJE 
:* AND SHOULD NOT BE CONSTRUED AS A COMM 
's CORPORATION. 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
 easenndonenngnesedungenreenendanediennnnannnsentahenenbennentyennndaunenee 
i 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 


lee 
FACILITY: Command recall routines 


ABSTRACT: 


These routines are used to manage the command recall 
functions of the command language intepreter. 


ENVIRONMENT : 
VAX/VMS operating system. supervisor mode, 
! AUTHOR: Peter George, March 1983 
Modified by: 
v03-005 pveeees Peter George 06-Feb-1984 


e more discerning about when to insert a space 
in a recalled command Line. 


v03-004 PCG0004 Peter George 03-Jan-1984 
Modify the structure of the recall buffer. 
v03-003 PCG0003 Peter George 18-Nov-1983 


Add a routine to get a command by number. 


an nt a nt it na a a tt SS Sh Ss Ss SS SS SS SS OOOO 
. 


SECTORS SS 


me 


ak ae 


$ep-1984 00:24: AX-11 Bliss-32 V4.0-74 
16- Sen 1984 99:96:48 DCL.SRCIR RECA CALLSUB.B32; 
v03-002 , 60002 Peter George 20-Apr-1983 
x bug in EDIT_COMMAND algorithm. 


v03-001 pCG000) Peter George 30-Mar-1983 
Redo EDIT_COMMAND algorithm. 


Include files 


BRARY ‘SYSSLIBRARY: LIB’; 
QUIRE 'LIBS:DCLDEF’; 


>) a ee 


LI 
E ! DCL definitions 


Page 
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' 
Macros to check for ends of command buffer 


MACRO overflow (address) = 
(address) GEQU prc Cprc_g_commands) + prc_c_cmdbufsizz; 


MACRO underflow (address) = 
(address) LSSU prc Cprc_g_commands]2; 


ed a a to 
SNS NNN SOOO 


; a 1143 i iy ble of 

3 ' Table of contents 

2 ee 

= 1145 1 LINKAGE 

3 ug 1138 1 common_linkage = call _: GLOBAL curhete greet? 

; f 114 i ptr_linkage = call : GLOBAL (ptr=9,wrk=10,prc=11); 

3 i$ 1149 1 FORWARD ROUTINE 

; 80 1150 1 dcl$put_command : common_linkage, |! Put command in buffer 

: 1 1151 «1 dcl$put_segment : common linkage, ! Add to last command in buffer 
: ¢ 11 ¢ 1 gonpere. str ing : ptr Linkage, ! Compare current and last commands 
3 11 1 nsert_String : ptr_Tinkage, ! Insert a str ng n the buffer 
3 4 1154 1 zero_buffer : ptr_linkage, ' Zero part of the buffer 

3 5 1155 (1 edit_command : ptr_linkage, ! Edit previous command 

; & 1138 1 dcl$get_next_command:common_lLinkage,! Get next command from buffer 
cy or 1157 1 dcl$get_prev_c “mand:common_linkage,! Get previous command from buffer 
; 8 1158 1 dcl$get_curr_ mand:common_linkage;! Get current command from buffer 
BRB T, 

: 4! 139) : Change name of the PSECT's to conform to DCL standards. 

3 38 1188 1 PSECT PLIT = DCLSZCODE(EXECUTE, ALIGN(O)); 

3 Be BF ¢ : PSECT CODE = DCLSZCODE(EXECUTE, ALIGN(O)); 

; 1166 1 LITERAL 

3 3 116? 1 true - 1, 

; 1168 1 false 

; 1169 1 

: 100 1170 1 

: 103 72 4 

: 108 193 

: 104 1174 1 

; 105 1175 «1 

; 106 1176 1 

; 107 1177 «1 

; 108 1178 #1 


—~ 
~o 


— 


ss a ss ss as ts se or se ss 


LESRANLSSSLESRASLSSELEARFAVESS. 


AA ALAN AAAI TIRONININIFON IN 3 8 9s han 
PUNE WN OO DDNAUNE WN SO DDNAUE WN A OODNOULS WHO 


PANAMA & BBE EEE EE EW 
NOUS WN —OVOONOUSWN OOO 
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ec ae ce ce a ec ee ee ee cB ee ec a ec ee ee ee ee a ee ed ee ed ae ed 
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WAN AAAI RONININ NINN 2 BOO 
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GLOBAL ROUTINE dclSput_command (desc) : common_linkage = 


GLOBAL agsesran 
ptr=9 : 


EXTERNAL REGISTER 
wrk=10 : 


IF 


Put a command into the command buffer. 


desc = address of descriptor of command to insert 

R10 = address of WRK data structure 

R11 = address of PRC data structure 

PRC_L_RECALLPTR = pointer to location to insert command at 


Outputs: 


The command is added to the buffer and PRC_L_RECALLPTR is updated 
to point to the next free space in the buffer. 


The structure of the circular recall buffer is as follows: 


O-byte, len-byte,char-string, len-byte, 
O-byte, len-byte,char-string,len-byte, ... 


routine value = always true 


REF VECTOR; ! Input command descriptor 
REF VECTORL BYTE); ! Pointer into recall buffer 


REF $BBLOCK, ' Address of WRK data structure 


prc=11 : REF $BBLOCK; ! Address of PRC data structure 


ompare the new command to the previous command. If identical, then do not 
nsert the new command in the buffer. 


are_string (.desc) 


RETURN true; 


; Skip past the leading zero and insert the command Length. 


FF overr 


rc Corc_l_recallptr] + 1; 
LOW try 


THEN ptr = .ptr = prc_c_cmdbufsiz; 
ptr a c desc’ £0) ne 


i Copy the command string into the buffer and insert the trailing length byte. 


sche 


9 


“Wo ooo” 


5 
00000000v 
5 
C 
E 


12F 
0000d060v 


3; Routine Size: 96 bytes, 


Routine Base: 


04 


0534 


FBFF 
04 


; 167 } : , 
P4 tr = .ptr + ; 
3 188 1 ti oveRF LOW (.ptr) 
: ’ 1 THEN ptr = prc C 
Te 124 see string SS 
; 1% 1241 ptr COJ = .desc 3 
3; iv 1 g 
; (176 124 : 
3; W9 1244 
: 176 1245 
: i} 1509 t 
: =. 
: 45 1346 TF OVERFLOW (.ptr) 
3 190 124 THEN ptr= prc Cor .g.comm 
: «(181 1 29 rc Corc_l_recallptr] = .pt 
3 186 1251 ETURN zero_buffer(); 
; 18 1 26 
; «6184 125 END; 
00000000v_ EF 
04 
50 
59 012F CB 

50 

50 

59 

3 

0 


0133 
04 


058¢ 


0133 


OMO GOO DOPFPOOMDMO OOO Owiorp 


OOWDNODON -ODN0OoMmv0oe- —o--m 


02 


prc_g_commands); 


ands]; 


one O09 00" O09 00-9 ODOOIUIM"IOo 
Woman —mOowoms Ooms mn —$ S&OOWoo 


DCL$ZCODE + 0000 


1$: 


AX-11 Blis 


i Zero any partialiy overwritten commands in the buffer and reset the 
pointer in the PRC data structure to the next free command space. 


RECALLSUB 
\v04-000\ 


DCL$ZCODE .NOWRT,0 

DCLSPUT_COMMAND, Save R9 

#1, COMPARE_STRING 

“. RD 

#1, 303(PRC) 
R11), RO 


PTR 


PTR 
(PTR)+ 


s-32 V4.0-74 
DCL.SRCJRECALLSUB.B32; 


Page 


od a 9 ss a ts 9 4 


MIPOPSPoPoPPoNoPononor 


oOo =) OOOO 00 OOO 0900 09 09 09 09 69 09 09 09 SINISE NIAAA AAO AAAOOUMINIUIUNIN 


a me ce ee ee ee ee ee ee ee ed ed ed od od 


-Sep-19 
GLOBAL ROUTINE dclSput_segment (desc) : common_Linkage = 


' iba diedl 

i 
Add a command segment to the Last command in the command buffer. 
If it causes the command to be longer that WRK_C_INPBUFSIZ=1 in 
length, then insert it as a new entry. 


Inputs: 


i 
i 
i 
i 
i 
i 
: dese = address of descriptor of command to insert 
' R10 = address of WRK data structure 

! R11 = address of PRC data structure 

PRC_L_RECALLPTR = pointer past end of last inserted command 
1 

i 

i 

i 

i 

i 

i 

i 


Outputs: 


The command segment is added to the buffer and PRC_L_RECALLPTR is 
updated to point to the next free space in the buffer. 


routine value = always true 


BEGIN 


P 
desc : REF VECTOR; ! Input command descriptor 


GLOBAL ecisren 
ptr=9 : REF VECTORC BYTE); ! Pointer into recall buffer 


EXTERNAL REGISTER 
wrk=10 : REF S$BBLOCK, ' Address of WRK data structure 
pre=11 : REF S$BBLOCK; ' Address of PRC data structure 


LOCAL 
lead_len : REF VECTORC,BYTE); ! Pointer to leading length in buffer 


Get the length of the previous command. If the total concatenated length 
of the command will now be greater than 255, then treat the new segmen 
as @ new command. 


ee = .pre Corc_l_recallptr]) - 1; 
F UNDERFLOW (.ptr) 
THEN ptr = .ptr + prs c cmdbufsiz; : 
IF (ptr C0] + .desc [COJ} GTR wrk_c_inpbufsiz - 1 
THEN RETURN dclS$put_command (.deSc); 


i Point at the first character of the previous command string and save 
: the address of the byte to insert the leading length at for later use. 
ptr = .ptr - .ptr (0); 
F UNDERFLOW (.ptr) E 
THEN ptr = .ptr + prc_c_cmdbufsiz; 


10 
IBzSe0-1984 0:24:46 YaNtt 01 tn9-52 v4.0: 


et tt = = 2 2 4 2 = 2 = = a as 1 


WA 
BNANE WN $$ O OONAUVE WO OONOUS Wr 


WAW AAA ANI IPIPONOPONININPNIND 2 2 OS Ss OS OS 


4 10 
1er8eb= 1382 99:98:98 EBRT BSS 88072.Ng-8554 


len) 
-lead_len + pre_c_cmdbufsiz; 


' Remove the ted continuation gherecter or comments from the previously 
inserted part of the command and insert the new segment at the end. 


edit_command (. lead_len); 
insert string (.dese); 


i Set the Length bytes. 


tr (0) = sete - .le g, “sa - 1; 
ead_len (0 -ptr 


i Zero any partially overwritten commands in the buffer and reset the 
pointer in the PRC data structure to the next free command space. 


ti "oved tov". Se ptr) 
THEN ptr= prc Cp erie -9.commands); 
rc Cerc. l greces lotr ptr; 
ETURN zéro_buffer() 


1 END; 


0204 00000 .ENTRY DCLSPUT SEGMENT Save R2,R9 
59 012F cB 01 ¢3 9000¢ SUBL3 #1, 303TPRC), PTR 
50 0133 CB 9E 0000 MOVAB 307(R11) PRO 
50 59 01 000 CMPL = PTR, RO” 
05 1€ 0001 BGEQU 1$ 
59 0401 C9 9E 0001 MOVAB 1025(R9), PTR 
50 69 9A 00017 1$ MOVZBL (PTR), RO 
50 04 Bf co Bete ADDL aDESC, RO 
QOO00OFF  aF 0 01 O1F CMPL RO, #055 
09 15 00 BLEQ = 2$ 
04 Ac DD 0 ? PUSHL DESC 
FF71 CF 01 ne ° ceete #1, DCLSPUT_COMMAND 
50 69 gf 23 MOV ZBL (PTR), RO 
59 0 ge SUBL 0 PTR 
5 0133 ; . MOVAB 307(R11), RO 
5 p 9 CMPL . RO 
5 iE BGEGU 
9 0401 C9 9E MOV res PTR 
; FF OA F 45 3$: MOV - (R9) ey EAD LEN 
3 ? 4 CMPL 
E C BGEGU 
52 0401 ; 9E af MOV | Saat, LEAD_LEN 
DD 00053 4$: PUSHL LEAD_LEN 


; Routine Size: 


141 bytes, 


00000000V EF 
00000000v 


ata 
00000000Vv 


Routine Base: 


« 
‘i 

9 

0534 53 
0133 8 
00 
DCLSZCODE 


+98 AX-11 Bliss-32 V4.0-7 
DCL.SRCJRECALLSUB. B32; 


#1 « EDIT COMMAND 
INSERT, TRIN 
AD_LEN RO 


pray’ 
{Rs 4, {LEAD LEN) 
_ 

(R11), PTR 


7 
R, _303(PRC) 


Pp 
332 
T 
$ 
0 
T R 

0, ZERO_BUFFER 
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ROUTINE compare_string (desc) : ptr_linkage = 
ee oe 
re the new command to the previous command. 


Compa 
If identical, then return true. 


Inputs: 


1 
i 
i 
i 
‘ R10 = address of WRK data structure 

: R11 = address of PRC data structure 

} PRC_L_RECALLPTR = pointer past end of Last inserted command 
! 

i 

i 

i 

i 


Outputs: 


routine value = true if strings are the same 
false otherwise 


BEGIN 


MAP 
desc : REF VECTOR; ! Input command descriptor 


EXTERNAL REGISTER 

ptr=9 : REF VECTORC BYTE), ! Pointer into recall buffer 
wrk=10 : REF SBBLOCK, ! Address of WRK data structure 
prc=11 : REF SBBLOCK; ! Address of PRC data structure 


LOCAL 
len; 


' 
Get length and address of previous command string. 


oe = .pre Corc_l_ 
F UNDERFLOW (.ptr ; 
THEN ptr _= .ptr + prc_c_cmdbufsiz; 
len = .ptr (0); 
ig = sper = .len; 
F UNDERFLOW (.ptr) 
THEN ptr = .ptr + prce_c_cmdbufsiz; 


pesatiptes - 1; 


1 
: Compare the two strings and return false if they are different. 


if OVERFLOW (.ptr + .Len = 1) 
THEN BEGIN 


Will we wrap around? 


i Compare first piece 


.des 
THEN RETURN false; 
IF CHSNEQ (.Llen - “Soap, San 
rc Cpr commands), 
Paese tOl°= -temp_len, 


! Compare second piece 


o 
a 
eo 
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: 
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< 
= 
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Yes, then compare in two pieces 
!' Get length of first piece 


' Return false if not equal 
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vos 14- att 99°48 DCL.SRCJRECALLSUB.B32; . (6) 
| 

; 0 14 $ 1 ROUTINE insert string (desc) : ptr_linkage = 

2 oe ee 

$ 1408 1 Insert a string in the buffer. 

: 344 1410 1! 

; «4345 1411 1°! Inputs: 

3 m6 1216 1! 

; 34 14) 1 ! R9 = address to th insertion at 

; 348 1414 1! R10 = address of WRK data structure 

; 349 1415 1! R11 = address of PRC data structure 

; 50 1213 se 

3 359) 1417 1°! Outputs: 

3 26 1013 1! 

3 27 re ; } R9 = address of first byte after the insertion 

5. Ie 1481 1! routine value = always true | 

; 356 14 ; 1 lee 

: 57 14 1 | 

; 358 1424 2 BEGIN 

5 59 1425 

; 360 1426 ¢ MAP | 

$ ) ist desc : REF VECTOR; ! Input command descriptor 

3 8 1o63 EXTERNAL REGISTER 

: 364 1430 ptr=9 : REF VECTORC,BYTE), ! Pointer to retrieved command 

; 365 1431 wrk=10 : REF SBBLOCK ! Address of WRK data structure 

3 $6 1038 prc=11 : REF SBBLOCK: ! Address of PRC data structure | 

; 368 1434 IF OVERFLOW (.ptr + .desc [0] - 1) ! Will we wrap around? 

; 369 1435 THEN BEGIN ! Yes, then copy in two pieces 

; 370 1438 LOCAL temp_len; 

3 71 1437 temp_ ~ = tty Cprc_g_commands] + ! Get length of first piece 

. 1438 _c¢_cmdbu its - ptr ! 

ae 1439 CHSMOVE er tab len, .desc ptr); ! Move first piece 

3: 376 1440 CHSMOVE (. Soot J- step, Len, ! Move second piece | 

3; 375 1441 . te “ + ,temp_Ten, : 

; 399 1408 t here's tucnenash'> i Update the pt | 

3 rs re rc_g_command ! Update the ptr 

; 378 1444 , , =: reds - .temp_len; ‘ 

; 379 1445 E : 

: 380 1oc8 ELSE BEGIN ' No, then copy in whole 

3 Sel 144 CHSMOVE (.desc [0], .desc Ci], .ptr); ' 

3 + 1448 < = .ptr + .desc (0); : 

: 3a 1286 , 

: 385 1451 2 IF OVERFLOWC ptr) ' Update the pointer 

; 386 1636 HEN ptr = prc Cprc_g_commands); ! 

s 387 145 

; 388 1454 3 ge true; 

; 389 1455 


1F 0 NSERT_STRING: 
pre Sanen PENT F -WORD Save R2,R3,R4,R5,R6,R7,R8 ; 1406. 


CALLSUB.B32; 
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81 bytes, Routine Base: DCLS$ZCODE + 0158 


3; Routine Size: 


3; Routine Size: 


32S 


| ak ee ee ee el et et et ed ae del kad 


MOPORIPUNY a 
FUN OOO NOUEWNR oO 


fF 11 
-$ep-1984 00:24: AX-11 Bliss-32 v4.0-74 Page 13 
1eageen13be $9:F$:98 FONT TE BU isea32 v.00 wr a 
16 § } ROUTINE zero_buffer : ptr_linkage = 
14 1 i 
1299 : Zero any partially overwritten commands in the buffer. 
1489 1/ Inputs: 
1463 1 
1464 1! R9 = address to start zeroing at 
1465 1} R10 = address of WRK data structure 
1288 ! R11 = address of PRC data structure 
1466 1! Outputs: 
1092 1! 
1470 1! routine value = always true 
1471 1 iene 
1306 1 
147 BEGIN 
1474 
1475 —— REGISTER 
1o78 r=9 : REF VECTORC,BYTE]), !' Pointer to retrieved command 
147 ae i REF SBBLOCK ' Address of WRK data structure 
1o78 prc=11 : REF SBBLOCK: ' Address of PRC data structure 
1480 WHILE t ptr CO] NEQ 0) 
1481 dO ae 
1o36 tr C0) = 0; 
148 ptr ptr + 1; 
1484 F oven LOW (. ptr) 
1485 THEN ptr = prc Cprc_g_commands]; 
1486 END; 
1487 
1488 RETURN true; 
1489 END; 
0000 u QUFFER 
WORD Says petting 3: 1456 
50 0534 CB 9 00006 MOVAB 1332(R11), RO 3 1484 
69 95 000 & TSTB (PTR) ; 1480 
3 1 8 BEQL 2$ : 
94 CLRB (PTR)+ 3; 1482 
50 9 D1 CMPL PTR, RO 3: 1484 
F5 1F 0001 BLSSU. '1$ 3 
59 0133 cB ¥ 1 MOVAB 307(R11), PIR : 1485 
FE 1 1 BRB 1$ : 1480 
50 1 Be 19 2$: MOVL #1, RO : 1488 
4 1c RET : 1489 
29 bytes, Routine Base: DCLSZCODE + 01A9 


18-Sep-1984 90:46:46 AX-11 8 daence V4.0-74 Page 14) 


14-Sep-1 DCL.SRC LLSUB.832; (8) 
: 14 1 ROUTINE edit_command (len) : ptr_linkage = 
1431 } x ptr g 
$ 14 § 1 !<<< 
; 1495 1! 
s 1494 1! Remove the continuation character and/or qonnent characters from the 
3 1og2 : } end of the command Line. Insert a space in their place. 
: 1237 ! } Inputs 
; 1299 1! ign = address of byte length of command 
: 1500 1! R9 = ptr to first character of command string 
3 1 8 ; | R10 = address of WRK data structure 
3 1206 : R11 = address of PRC data structure 
: 1305 : Outputs: 
; 1 1! R9 = pt- to end of edited command 
: 130% 7% 
: 1508 1! routine value = always true 
8 1509 1! 
3 1510 1 lene 
3 1511 1 
3 121g BEGIN 
3 151 
: 1514 MAP 
3 131? len : REF VECTORC BYTE); ! Address of length of command 
; 1319 EXTERNAL REGISTER 
: 1518 ptr=9 : REF VECTORC BYTE), ! Pointer to end of command to edit 
: 1519 wrk=10 : REF $BBLOCK, ! Address of WRK data structure 
; 13 » prc=11 : REF S$BBLOCK; ! Address of PRC data structure 
3 15 ¢ LOCAL 
3 1 ? flags : BITVECTORC3); ! Flags 
; 1525 LITERAL 
3 1526 continue = 0, 
3 1527 blank = 1, 
: 1528 quote = 2; 
: 1529 
3 1530 flags = 0; 
3 133) 
3 15 $ ‘ 
3 1 ? ; Search for EOL or trailing comment. 
5 1535 INCR i FROM 1 TO .len (0) 
3 12 DO BEGIN 
; 15 IF .ptr CO) EOL xc" 
3 1336 ifen flags Leusted = NOT .flags Cquote); 
: 1541 IF NOT .flags Cq te] 
: 1366 HEN IF .ptr EQL %C°!" 
: 154 THEN EXITLOOP; 
3 1363 
: 1545 tr = pte + 1; 
3 1546 fF OVERFLOW (.ptr) 


H 11 
voe-000 VecSep-i9ee $2:sise EDEL SRedneeactsuB-B3¢; Paar ob} 


3 : 3 ! rh 4 ae ptr = prc Cprc_g_commands); 
we i. 

5 : : 1 : Back up to previous character. 

; 489 1 § tid = sper - 1; 

; 490 1554 F UNDERFLOW (.ptr) 

; 491 1555 THEN ptr = .ptr + prc_c_cmdbufsiz; 

: 136 1 § 

; 49 1 , 

; $3¢ ! 4 ; Delete trailing white space. 

$ $38 1560 OHILE ((.ptr CO] EQL 2xX°20") OR (.ptr CO] EQL %x'09")) 
; 49 1561 dO BEGIN 

3; 498 1 6 sper 

; 499 156 RF UN er FLOW UC ‘tr? 

; 500 1564 THEN ptr = .ptr + prc_c_cmdbufsiz; 

; 501 1565 3 

; 8g 1298 

; 50 156 ! 

; 504 1568 } Delete trailing continuation character. 
; 505 1569 

3 206 1570 ir sper (89 EQL %C'-' 

3; 1571 THEN 

3 en8 1376 os Ccontinues © true; 

; 509 157 a 

; 510 1574 F UNDE Flow (; ptr) 

s 511 1575 THEN ptr = .ptr + prc_c_cmdbufsiz; 
3 21g 1376 END; 

3 1 157 

; 514 1378 ! 

3 a2 4 Delete trailing white space. 

; 517 1383 OHILE i<.ptr CO] EQL £xX°20") OR (.ptr CO] EQL %x'09")) 
; 518 1386 DO BEGIN 

3 232 158 flags Cp enks = true; 

3 0 1584 tr = 1; 

: 3 , 3b d UNDE FLow “ rs dbufsi 

3 ptr = .ptr + prc_c_cmdbufsiz; 

3 1389 END; 

3 4 1588 

: 38? 1350 $ i insert t the end 

3 nsert a space a e end. 

: $ 1899 : 

3 1336 ptr ptr 

3 159 F over Low" C pte) 

: 1594 THEN cg command at: 

: 1 1333 IF (. (tags Ce reer inee B flags blank}) OR NOT -flags Ccontinue) 
: : 1399 ptr ‘to = ax" 0°; 

: 138 vei 

3 5 1 F oven tow. fe ptr) 

3 1999 THEN ptr = prc Cprc_g_commands]; 
3 8 1o06 

; 39 160 RETURN true; 
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Save R2,R3 
FLAGS 


Weal, R2 


307(R11), PTR 
aS 1, 18 
307(R11), RO 
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(PTR), #32 
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#1, FLAGS 
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GLOBAL ROUTINE dcl$get_prev_command (desc) : common_Linkage = 


: Get the previous command from the command buffer and put it into 
the input buffer. 


Inputs: 
desc = address of descriptor in which to return recalled command 
R10 = address of WRK data structure 
R11 = address of PRC data structure 
WRK_L_RECALLPTR = pointer to last recalled command 
Outputs: 


The command is copied into the input buffer and the descriptor 
is initialized. 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: routine value = true if success, false if empty buffer 


BEGIN 
GLOBAL REGISTER 
ptr=9 : REF VECTORC,BYTE); ! Pointer to retrieved command 
EXTERNAL REGISTER 
wrk=10 : REF $BBLOCK, ! Address of WRK data structure 
prce=11 : REF S$BBLOCK; ' Address of PRC data structure 


' 
Back up one command. 


UNDERFLOW (.pt 

THEN a = .ptr + pre c_ cmdbufsiz; 
IF .ptr (OJ EQL 0 We RETORN false; 
ti = .ptr = .ptr (0) = 2; 
F UNDERFLOW (.ptr) 

THEN ptr = .ptr + prc_c_cmdbufsiz; 
wrk Cwrk_l_recallptr] = <ptr; 
] 
; Now return the current command. 


ptr = .wrk Cwrk_l_recallptr] - 1; 
F r) 


crue dcl$get_curr_command (.desc); 


-ENTRY DCLSGET_PREV_COMMAND, Save R9 
SUBL3 #1, °- qtunn. PTR 
VAB  307(R11), RI 
CMPL PTR, R1 
BGEQU 1$ 
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DCLSZCODE + 025D 


65 bytes, Routine Base: 


3; Routine Size: 


M11 | 
vor~b00 1e-$ep=1986 12:i5:3¢ — Eocc.sRcdRECALLSUB-83¢; rage 8), 


3 30 Mb § } GLOBAL ROUTINE dcl$get_next_command (desc) : common_linkage = 

: 59 1654 1 !-<- 

3 38 ig $ 3} Get the next command from the command buffer and put it into | 
; 594 16 § 7! the input buffer. 
; 595 16 1! 
; 396 16 8 1 ! Inputs: 
3 9) 16 1 ! i 
; 598 1660 1! desc = address of descriptor in which to return recalled command 
; 599 1661 1! R10 = address of WRK data structure 
; 600 1066 1! R11 = address of PRC data structure 
3 pet 199? : WRK_L_RECALLPTR = pointer to last recalled command 
; 60 1665 1 ! Outputs: 

; 604 1608 1! 
; 605 1667 1! The command is copied into the input buffer and the descriptor 
3 O06 1668 1! is initialized. 

; 60 1669 1! 
; 608 1670 1! routine value = true if success, false if empty buffer 
; 609 1671 1 !<<- 

; 610 1676 1 

3 611 167 BEGIN 

; ei¢ 1674 

; 61 1675 GLOBAL REGISTER 
3 ere 1976 ptr=9 : REF VECTORC,BYTE); ! Pointer to retrieved command 
; 616 1678 EXTERNAL REGISTER | 
3; 617 1679 wrk=10 : REF S$BBLOCK, ' Address of WRK data structure 

: 618 1680 prc=11 : REF S$BBLOCK; ' Address of PRC data structure | 
3; 619 1681 

3 630 1086 ! 

3 ? 1 et : Skip past the current command. 

s 6 “ 1685 i = .wrk Cwrk_l_recallptr) + 1; 

; 626 1686 F OVERFLOW (.ptrJ 

: 625 1687 THEN pss = pre Coreg commands]; 
> 626 1688 If .ptr (0) EQL OT aN sre false; 

: 627 1689 ptr = ptr + .ptr (OJ + 2; 
> 628 1690 F OVERFLOW (.ptr) 
3 $6 1691 EN ptr = aerr -_prce_c_cmdbufsiz; 

; 6 1696 wrk Cwrk_l_recallptr] = ‘ptr; 

: 631 169 

$ O34 1694 ‘ 

3 ° 1693 : Now return the current command. 

3; 635 1697 RETURN dcl$get_curr_command (.desc); 

; 636 1698 1 END; 


0200 000 ENTRY DCLSGET NEXT_COMMAND, Save R9 > 165 
59 EA AA 01 ci 0 ADDL3 #1, = TURK) PTR : 168 
1 0534 8 f V 13$2(R11), Ri > 168 

1 b C CMPL PTR, R1 : 

5 1F O000F BLSSu ‘18 : 


N11 
16-Sep-1984 00:24: AX-11 Bliss-32 V4.0-74 
13-808-4 382 99:98:98 DCL SREIRELALTSUB O32, 
9 0133 — 00011 MOVAB 307(R11), PTR 
8 e9 oh 1 1$: MOV ZBL PTR), RO 
59 02 a0ud oF 1 MOVAB 2 (RO)CPTRI, PTR 
ees it ee he 
59 FBFF £9 3 0 MOVAB -1025(R9), PTR 
EA AA 06 ir 45 A 2$: poy oe =22 (WRK) 
00000000v_ EF 01 FB 0 ; CALLS #1, DCLSGET_CURR_COMMAND 
50 D4 00 § 3$: CLRL = RO 
4 00 RET 


; Routine Size: 60 bytes, Routine Base: DCLSZCODE + 029E 


12 
RECALL SUB 1$-e0-1964 00:24:46 YAKT] 1 is9-52 v4.0-74 Page 2 


} 


3 638 1999 } GLOBAL ROUTINE dcl$get_curr_command (desc) : common_linkage = 

; 640 179 i 

; 641 17 ¢ 1! Get the current command from the command buffer and put it into 

3 er 1? i ! } the input buffer. 

: 644 7 5 Inputs: 

; 64 1709 1/ desc = address of descriptor in which to return recalled command 

: 646 1708 1! Ry = address of WRK data structure 

3; 648 1709 1! R11 = address of PRC data structure 
3 eh 1719 ! } WRK_L_RECALLPTR = pointer to last recalled command | 
; 691 Wie | i Qutputs: | 
; 6 ¢ 1715 1! 
; 65 1714 1! The command is copied into the input buffer and the descriptor 

3 $28 iti? : is initialized. | 
; 656 1719 1 routine value = true if success, false if empty buffer 
3; 657 1718 1 te<- 

; 658 1719 «1 

; 659 1739 BEGIN 

: gee 1753 MAP 
: 666 1738 desc : REF VECTOR; ! Command descriptor | 
> 664 1725 GLOBAL REGISTER 

3 oe? 4 § ptr=9 : REF VECTORC BYTE); ! Pointer to retrieved command 
: 667 1728 2 EXTERNAL REGISTER 

; 668 1729 wrk=10 : REF S$BBLOCK, ! Address of WRK data structure 
: 669 17 prc=11 : REF $BBLOCK; ! Address of PRC data structure 
RNG, 
; oF 1738 Init the output descriptor. | 
: 674 1735 2 ptr = wwrk Cwrk lrecallptr] + 1; 

: 675 1736 TF OVERFLOW (.ptrJ 
; 676 1737 THEN ptr = .ptr_= prce_c_cmdbufsiz; 

3 O77 1738 desc C03 = .ptr (0); 
; 678 1739 desc (1) = wrk Cwrk_g_inpbuf] - 2; 

: 8h0 pay $3 | 
; ret rts Find the start of the command string. 

: 68 1744 2 IF .ptr CO} EQL O THEN RETURN false: 

3 6684 1745 tr = .ptr + 1; 
; 685 Ho f overF Low (.ptr) 

; 686 174 THEN ptr = prc Cprc_g_commands); 
. See | 
: ret 1739 Copy the command text into the input buffer. 

: 691 1738 if OVERFLOW (.ptr + .desc [0] - 1) ! Wrap around? 

; es 173? THEN nadty ' ! Yes, then copy in two pieces 

; LOCAL temp_len; 3 

3; 694 1755 temp_len 4 prc Cprc_g_commands) ! Get Length of first piece 


3; Routine Size: 


59 
57 
04 86 
04 8647 
04 B86 


12 
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' 


14-Sep-1984 


prc_c cmdbufsiz = .ptr; 


o 
CHSMOVE (.temp 

cosy, 

prc 


CHSMOVE 


stemp ten, 


esc Lii7#".temp_lens ; 


END 
ELSE CHSMOVE (.desc [0], .ptr, .desc (1]); 


RETURN true; 
END; 
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DCLSZCODE + O2DA 


fen, ptr. desc (1); 


1$: 


M 
2$: MOVL 


Move the first piece 
Move the second piece 


No, then copy in whole 


-22(WRK), PTR 
(R11), R 


y, RI 
(R9), PTR 
6 


(R6) 
R10), 4(R6) 


atinavci- 0-227 
7 
Da 


=—0=-%O Wie - 
nN DBD 
aoa 


07(R11), PTR 
-1(R8)CPTRI, RO 


PTR, R1, TEMP_LEN 
TEMP_LEN, (PTR), a4(R6) 
TEMPSLEN R8 
RB, 307(PRC), a4(R6)CTEMP_LEN] 
RB, (PTR), a4(R6) 

1, RO 


RO 


SGET_CURR_COMMAND, Save R2,R3,R4,R5,R6,- 
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PSECT SUMMARY 
Bytes Attributes 
DCLSZCODE 828 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 


Library Statistics 


Snenaee =e SYREGLE Sooscese Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$0UA28: CSYSLIBILIB.L32;1 18619 5 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RECALLSUB/OBJ=OBJ$:RECALLSUB MSRC$:RECALLSUB/UPDATE=(ENH$:RECALLSUB) 


Size: Nees 828 cogs + 0 data bytes 
me :28. 

(pe fees 01: ¢°9 

Lines/CPU Min: $08, 

Lexemes/CPU-Min: 33038 
"Y Used: 207 pages 

Compilation Complete 
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